home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / register.asp < prev    next >
Encoding:
Text File  |  2002-03-13  |  10.9 KB  |  369 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3. %>
  4. <%
  5.     dim dtInserted
  6.     dim accesslevel
  7.     dim user_id
  8.     dim user_name
  9.     dim f_name
  10.     dim l_name
  11.     dim email
  12.     dim password
  13.     dim addr1
  14.     dim addr2
  15.     dim city
  16.     dim state
  17.     dim postalcode
  18.     dim country
  19.     dim phone
  20.     dim notes
  21.     dim register_sql
  22.  
  23. sub request_register
  24. ''' request expected input parameters for this form
  25.     dtInserted = request("dtInserted")
  26.     accesslevel = request("accesslevel")
  27.     user_id = request("user_id")
  28.     user_name = request("user_name")
  29.     f_name = request("f_name")
  30.     l_name = request("l_name")
  31.     email = request("email")
  32.     password = request("password")
  33.     addr1 = request("addr1")
  34.     addr2 = request("addr2")
  35.     city = request("city")
  36.     state = request("state")
  37.     postalcode = request("postalcode")
  38.     country = request("country")
  39.     phone = request("phone")
  40.     notes = request("notes")
  41. end sub
  42.  
  43. sub validate_register
  44. ''' request and validate data entered from this form
  45.     dtInserted = trim(request("dtInserted"))
  46.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  47.         error_list.add "487811date"," must be a valid date (MM/DD/YY)."
  48.         b_error = true
  49.     end if
  50.     accesslevel = trim(request("accesslevel"))
  51.     user_id = trim(request("user_id"))
  52.     user_name = trim(request("user_name"))
  53.     if user_name = "" then
  54.         error_list.add "487798","desired username must be specified."
  55.         b_error = true
  56.     end if
  57.     f_name = trim(request("f_name"))
  58.     l_name = trim(request("l_name"))
  59.     email = trim(request("email"))
  60.     if email = "" then
  61.         error_list.add "487801","email must be specified."
  62.         b_error = true
  63.     end if
  64.     password = trim(request("password"))
  65.     if password = "" then
  66.         error_list.add "487802","password must be specified."
  67.         b_error = true
  68.     end if
  69.     addr1 = trim(request("addr1"))
  70.     addr2 = trim(request("addr2"))
  71.     city = trim(request("city"))
  72.     state = trim(request("state"))
  73.     postalcode = trim(request("postalcode"))
  74.     country = trim(request("country"))
  75.     phone = trim(request("phone"))
  76.     notes = trim(request("notes"))
  77. end sub
  78.  
  79. sub get_defaults_register
  80. ''' set default values for this form
  81.     accesslevel = 1
  82. end sub
  83.  
  84. sub db_select_register
  85.     sql = "SELECT " & _ 
  86.     "dtInserted, " & _ 
  87.     "accesslevel, " & _ 
  88.     "user_id, " & _ 
  89.     "user_name, " & _ 
  90.     "f_name, " & _ 
  91.     "l_name, " & _ 
  92.     "email, " & _ 
  93.     "password, " & _ 
  94.     "addr1, " & _ 
  95.     "addr2, " & _ 
  96.     "city, " & _ 
  97.     "state, " & _ 
  98.     "postalcode, " & _ 
  99.     "country, " & _ 
  100.     "phone, " & _ 
  101.     "notes FROM Users" & _ 
  102.     " WHERE " & _ 
  103.     "Users.user_id = " & to_sql(user_id,"number") & ""
  104.     on error resume next
  105.     set rs = cn.Execute(sql)
  106.     if err.number <> 0 then
  107.         b_error = true
  108.         error_list.add "select_data_register", "The data selection failed. " & err.description
  109.     elseif rs.EOF then
  110.         b_results = false
  111.         msg_list.add "select_data_register", "The record was removed from the database."
  112.     else
  113.         dtInserted = rs("dtInserted")
  114.         accesslevel = rs("accesslevel")
  115.         user_id = rs("user_id")
  116.         user_name = rs("user_name")
  117.         f_name = rs("f_name")
  118.         l_name = rs("l_name")
  119.         email = rs("email")
  120.         password = rs("password")
  121.         addr1 = rs("addr1")
  122.         addr2 = rs("addr2")
  123.         city = rs("city")
  124.         state = rs("state")
  125.         postalcode = rs("postalcode")
  126.         country = rs("country")
  127.         phone = rs("phone")
  128.         notes = rs("notes")
  129.     end if
  130.     rs.Close
  131.     on error goto 0
  132. end sub
  133. sub db_insert_register
  134.     sql = "INSERT INTO Users" & _ 
  135.     "(" & _ 
  136.     "user_name," & _ 
  137.     "f_name," & _ 
  138.     "l_name," & _ 
  139.     "[email]," & _ 
  140.     "[password]," & _ 
  141.     "addr1," & _ 
  142.     "addr2," & _ 
  143.     "city," & _ 
  144.     "[state]," & _ 
  145.     "postalcode," & _ 
  146.     "country," & _ 
  147.     "phone," & _ 
  148.     "[notes]," & _ 
  149.     "dtInserted," & _ 
  150.     "dtModified," & _ 
  151.     "accesslevel" & _ 
  152.     ") VALUES (" & _ 
  153.     "" & to_sql(user_name,"text") & "," & _ 
  154.     "" & to_sql(f_name,"text") & "," & _ 
  155.     "" & to_sql(l_name,"text") & "," & _ 
  156.     "" & to_sql(email,"text") & "," & _ 
  157.     "" & to_sql(password,"text") & "," & _ 
  158.     "" & to_sql(addr1,"text") & "," & _ 
  159.     "" & to_sql(addr2,"text") & "," & _ 
  160.     "" & to_sql(city,"text") & "," & _ 
  161.     "" & to_sql(state,"text") & "," & _ 
  162.     "" & to_sql(postalcode,"text") & "," & _ 
  163.     "" & to_sql(country,"text") & "," & _ 
  164.     "" & to_sql(phone,"text") & "," & _ 
  165.     "" & to_sql(notes,"text") & "," & _ 
  166.     "" & to_sql(now,"date") & "," & _ 
  167.     "" & to_sql(now,"date") & "," & _ 
  168.     "" & to_sql(accesslevel,"number") & ")"
  169.     'response.write sql
  170.     on error resume next
  171.     cn.Execute(sql)
  172.     if err.Number <> 0 then
  173.         b_error = true
  174.         error_list.add "db_insert_register" & err.Number ,"The database insert failed. " & err.Description
  175.     else
  176.         set rs = cn.Execute("SELECT @@IDENTITY")
  177.         user_id = rs(0)
  178.         rs.Close
  179.         msg_list.add "db_insert_register","The database insert was successful."    end if
  180.     on error goto 0
  181. end sub
  182. sub db_update_register
  183.     sql = "UPDATE Users SET " & _ 
  184.     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _ 
  185.     "accesslevel = " & to_sql(accesslevel,"number") & ", " & _ 
  186.     "user_name = " & to_sql(user_name,"text") & ", " & _ 
  187.     "f_name = " & to_sql(f_name,"text") & ", " & _ 
  188.     "l_name = " & to_sql(l_name,"text") & ", " & _ 
  189.     "email = " & to_sql(email,"text") & ", " & _ 
  190.     "password = " & to_sql(password,"text") & ", " & _ 
  191.     "addr1 = " & to_sql(addr1,"text") & ", " & _ 
  192.     "addr2 = " & to_sql(addr2,"text") & ", " & _ 
  193.     "city = " & to_sql(city,"text") & ", " & _ 
  194.     "state = " & to_sql(state,"text") & ", " & _ 
  195.     "postalcode = " & to_sql(postalcode,"text") & ", " & _ 
  196.     "country = " & to_sql(country,"text") & ", " & _ 
  197.     "phone = " & to_sql(phone,"text") & ", " & _ 
  198.     "notes = " & to_sql(notes,"text") & " WHERE " & _ 
  199.     "user_id = " & to_sql(user_id,"number") & ""
  200.     'response.write sql
  201.     on error resume next
  202.     cn.execute(sql)
  203.     if err.number <> 0 then
  204.         b_error = true
  205.         error_list.add "db_update_register" & err.Number ,"The database update failed. " & err.Description
  206.     else
  207.         msg_list.add "db_update_register" & user_id,"The database update was successful."
  208.     end if
  209.     on error goto 0
  210. end sub
  211. sub db_delete_register
  212.     sql = "DELETE FROM Users" & _ 
  213.     " WHERE " & _ 
  214.     "user_id = " & to_sql(user_id,"number") & ""
  215.     'response.write sql
  216.     on error resume next
  217.     cn.Execute(sql)
  218.     if err.number <> 0 then
  219.         b_error = true
  220.         error_list.add "db_delete_register" & err.Number ,"The database deletion failed. " & err.Description
  221.     else
  222.         msg_list.add "db_delete_register","The record was removed."
  223.     end if
  224.     on error goto 0
  225. end sub
  226.  
  227. do_search = request("do_search")
  228. ''' request form keys
  229. user_id = request("user_id")
  230. ''' request action
  231. action = lcase(request("action"))
  232. ''' action case handler
  233. select case action
  234.  
  235. case "select_register"
  236. '  select the requested key record from database
  237. if user_id <> "" then
  238.     db_select_register
  239. else
  240.     b_error = true
  241.     error_list.add "edit_register", "Specify record to select."
  242. end if
  243.  
  244.  
  245. case "insert_register"
  246. '  request form data and insert a new record into database
  247.  
  248. validate_register
  249. if not b_error then
  250.     db_insert_register
  251. end if
  252.  
  253.  
  254.  
  255. case "update_register"
  256. '  request form data and update an existing database record
  257. validate_register
  258. if not b_error then
  259. if user_id <> "" then
  260.     db_update_register
  261. else
  262.     b_error = true
  263.     error_list.add "update_register", "Specify record to update."
  264. end if
  265. end if
  266.  
  267.  
  268. case "delete_register"
  269. '  delete the requested key database record
  270. if user_id <> "" then
  271.     db_delete_register
  272.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  273. else
  274.     b_error = true
  275.     error_list.add "delete_register", "Specify record to delete."
  276. end if
  277.  
  278.  
  279. end select
  280.  
  281. '  no action was specified, so handle the default case(s)
  282. if user_id <> "" then
  283.     db_select_register
  284. end if
  285.  
  286.  
  287. %>
  288.  
  289. <!-- #include file='i_header.asp' -->
  290. <!-- #include file='i_menu.asp' -->
  291.  
  292.  
  293. <%
  294. display_errs
  295. display_msg
  296. %>
  297.  
  298. <table class='headerTable'>
  299. <tr>
  300. <td class='headerTD'>
  301. Register
  302. </td>
  303. </tr>
  304. </table>
  305. <table  >
  306. <form name="register" action="" method="get" >
  307.         
  308.         <input type=hidden name="dtInserted" value="<% =dtInserted %>">
  309.         
  310.         
  311.         <input type=hidden name="accesslevel" value="<% =accesslevel %>">
  312.         
  313.         
  314.         <input type=hidden name="user_id" value="<% =user_id %>">
  315.         
  316. <tr>
  317.     <td class='labelTD'>desired username</td>
  318.     <td class='dataTD' width='75%'>
  319.         <input type=text  name="user_name" size="" maxlength="50" value="<% =user_name%>">
  320.     </td>
  321.     <td class='labelTD'></td>
  322. </tr>
  323. <tr>
  324.     <td class='labelTD'>first name</td>
  325.     <td class='dataTD' >
  326.         <input type=text  name="f_name" size="" maxlength="50" value="<% =f_name%>">
  327.     </td>
  328.     <td class='labelTD'></td>
  329. </tr>
  330. <tr>
  331.     <td class='labelTD'>last name</td>
  332.     <td class='dataTD' >
  333.         <input type=text  name="l_name" size="" maxlength="70" value="<% =l_name%>">
  334.     </td>
  335.     <td class='labelTD'></td>
  336. </tr>
  337. <tr>
  338.     <td class='labelTD'>email</td>
  339.     <td class='dataTD' >
  340.         <input type=text  name="email" size="" maxlength="60" value="<% =email%>">
  341.     </td>
  342.     <td class='labelTD'></td>
  343. </tr>
  344. <tr>
  345.     <td class='labelTD'>password</td>
  346.     <td class='dataTD' >
  347.         <input type=password name="password" size="" maxlength="50" value="<% =password %>">
  348.     </td>
  349.     <td class='labelTD'></td>
  350. </tr>
  351. <tr>
  352.     <td class='labelTD'>address</td>
  353.     <td class='dataTD' >
  354.         <input type=text  name="addr1" size="" maxlength="100" value="<% =addr1%>">
  355.     </td>
  356.     <td class='labelTD'></td>
  357. </tr>
  358. <tr>
  359.     <td class='labelTD'></td>
  360.     <td class='dataTD' >
  361.         <input type=text  name="addr2" size="" maxlength="50" value="<% =addr2%>">
  362.     </td>
  363.     <td class='labelTD'></td>
  364. </tr>
  365. <tr>
  366.     <td class='labelTD'>city</td>
  367.     <td class='dataTD' >
  368.         <input type=text  name="city" size="" maxlength="50" value="<% =city%>">
  369.     </td>
  370.     <td class='labelTD'></td>
  371. </tr>
  372. <tr>
  373.     <td class='labelTD'>state</td>
  374.     <td class='dataTD' >
  375.         <input type=text  name="state" size="" maxlength="50" value="<% =state%>">
  376.     </td>
  377.     <td class='labelTD'></td>
  378. </tr>
  379. <tr>
  380.     <td class='labelTD'>postal code</td>
  381.     <td class='dataTD' >
  382.         <input type=text  name="postalcode" size="" maxlength="50" value="<% =postalcode%>">
  383.     </td>
  384.     <td class='labelTD'></td>
  385. </tr>
  386. <tr>
  387.     <td class='labelTD'>country</td>
  388.     <td class='dataTD' >
  389.         <input type=text  name="country" size="" maxlength="50" value="<% =country%>">
  390.     </td>
  391.     <td class='labelTD'></td>
  392. </tr>
  393. <tr>
  394.     <td class='labelTD'>phone</td>
  395.     <td class='dataTD' >
  396.         <input type=text  name="phone" size="" maxlength="50" value="<% =phone%>">
  397.     </td>
  398.     <td class='labelTD'></td>
  399. </tr>
  400. <tr>
  401.     <td class='labelTD'>comments</td>
  402.     <td class='dataTD' >
  403.         
  404.         <textarea  name="notes" rows='10' cols='70'><% =notes%></textarea>
  405.         
  406.     </td>
  407.     <td class='labelTD'></td>
  408. </tr>
  409. <tr>
  410.     <td class=labelTD align=right> 
  411.     <% if user_id <> "" then %><% end if %>
  412.     </td>
  413.     <td class=dataTD>
  414.     <% if user_id = "" then %><input class=cmd type=submit value='REGISTER'><% end if %>
  415.     </td>
  416.     <td class=labelTD> 
  417.     </td>
  418. <input type=hidden name="action" value="<% if user_id <> "" then %>update<% else %>insert<%end if %>_register"></tr>
  419.  
  420. </form>
  421. </table>
  422.  
  423.  
  424.  
  425. <!-- #include file=i_footer.asp -->
  426.  
  427.  
  428. <%
  429. ':: assure that any db resources are freed
  430. on error resume next
  431. rs.Close
  432. set rs = NOTHING
  433. cn.Close
  434. set cn = NOTHING
  435. user_cn.Close
  436. set user_cn = NOTHING
  437. on error goto 0
  438. %>
  439.